home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 17 Arcade _ Action Games / SSUB.BIN (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  17.3 KB  |  443 lines
  1. 1 GOSUB15:POKE53280,7:RUN2980
  2. 10 POKE54296,15
  3. 11 POKE54277,S1%:POKE54278,S2%:POKE54276,S5%:POKE54273,S3%:POKE54272,S4%:RETURN
  4. 15 POKE54276,0:POKE54277,0:POKE54278,0:RETURN
  5. 30 IFKI=>KTTHENF0=0:GOTO2360
  6. 40 IFTI$>"003059"THENF0=2:GOTO2360
  7. 50 IFD%>100THENF0=3:GOTO2360
  8. 60 IFF0ORFNR(100)>INT(1/SL*25)THEN110
  9. 66 GOSUB595:GOSUB11:POKE54296,7
  10. 70 F4=1:PRINT"RADIO CONTACT[146] STAND-BY":A%=2:B%=8
  11. 80 FORX=FNR(A%)TOFNR(B%):GOSUB15:FORY=FNR(A%)TOFNR(B%):GOSUB11:FORQ=0TO3
  12. 82 IFQ%(X,Y,Q)=5THEN87 CONTACT!
  13. 85 NEXTQ,Y,X:PRINT"LOST CONTACT":IFA%=8THEN95 NO CONTACTS
  14. 86 A%=8:B%=2:GOTO80 SECOND SEARCH
  15. 87 IFFNR(100)<5THENPRINT"TRANSMISSION GARBLED. SORRY ";RA$:GOTO95
  16. 90 PRINTSH$(5)" AT"STR$(X)"[188] LAT."STR$(150-Y)"[188] LONG.
  17. 95 [141]595
  18. 110 S[178]1:[139]D%[177]64[167]S[178]2:[139]D%[177]74[167]S[178]3:[139]D%[177]84[167]S[178]4
  19. 120 [139]S[178]1[167]220
  20. 130 F4[178]1:[153]"DAMAGE CONTROL REPORTS "S$(S):[139]SP[177]1[167]SP[178]1
  21. 140 [139]S[177]2[167]F0[178]0:F2[178]0:[139]S[178]4[167]SP[178]0:[139][165]R(100)[179]20[167][153]"ENGINES DEAD!
  22. 150 IFFNR(100)<10THENPRINT"ENGINEERING REPORTS SEVERE DAMAGE!
  23. 160 [139]S[177]2[167][139][165]R(100)[179]15[167][153]"WATER TIGHT INTEGRITY IS LOST!
  24. 170 IFFNR(100)<10THENPRINT"HEAVY CASUALTIES THROUGHOUT THE BOAT!!
  25. 180 [139]S[177]2[167][139][165]R(100)[179]15[167][153]"WE'RE IN BIG TROUBLE "RA$"!!
  26. 190 IFD%>90THENIFFNR(100)<20THENPRINT"I THINK WE'VE HAD IT!!
  27. 195 [139]S[178]3[167][139][165]R(100)[179]20[167][153]"WE'RE ON FIRE!!!
  28. 200 IFS=4THENIFFNR(100)<20THENPRINT"YOU'VE DONE IT NOW!!
  29. 210 [153]"CONT":[141]2930
  30. 220 [153]:[139]SP[178]0[167]C1[178]90:C0[178]TI
  31. 230 [141]1880:[139][165]R(100)[177]OD[167]340
  32. 240 [141]2960:[139]Z[178]0[167]340
  33. 250 [139][165]R(100)[179]10[167][153]"SONAR REPORTS HIGH SPEED SCREWS CLOSING!":[141]2920
  34. 260 [139]Z[177]12[167][139][165]R(100)[179]50[167][153]"I THINK THE WHOLE JAP FLEET'S UP THERE!!":[141]2920
  35. 270 [139]F0[167][139][165]R(100)[179]25[167][153]"ENEMY DEPTH CHARGE RUN!!":[141]2920
  36. 280 F4[178]1:[153]"UNDER ATTACK!!":[129]X[178]1[164]Z:S1%[178]0:S2%[178]255:S3%[178]10:S4%[178]155:S5%[178]129
  37. 281 [151]54296,8:[141]11:[129]XX[178]8[164]2[169][171]1:[151]54296,XX:[130]:[141]11:[129]XX[178]1[164]5:[130]
  38. 285 [139][165]R(100)[177]30[167][153]"MISS ";:[137]325
  39. 290 [141]2950
  40. 300 [153]"HIT!WAIT ";:D%[178]D%[170]([165]R(11)[170]5):[153]"DAMAGE"[196](D%)"% ";:[139]D%[179]20[176][165]R(100)[177]1[167]330
  41. 310 [153]:[153]"CHIEF ENGINEER HAS FIRES UNDER CONTROL":D%[178]D%[172].25:[141]2920
  42. 320 [139][165]R(100)[179]25[167][153]"HE SAVED YOUR BUTT TURKEY!":[141]2920
  43. 325 [129]XX[178]1[164][165]R(500):[130]:[139]D%[177]100[167]30
  44. 330 [130]:[153]"":Z[178]Z[171][165]R(3):[139][165]R(100)[179]6[172]SL[167]250
  45. 340 F3[178]0:I[178]75:[139]F0[167]I[178]10:[139]F0[178]2[167]I[178]40
  46. 350 OD[178][165]R(11)[170]I
  47. 360 [139]F1[167]F1[178]0:[137]480
  48. 370 [139]F5[167]F5[178]0:[141]2920:[141]1070:[137]30
  49. 380 [161]K$:[139]K$[179][177]""[167]380 EMPTY BUFFER
  50. 390 C3[178]TI:[153]B$;:[139]D%[177]89[167][141]2930
  51. 400 [139]D%[177]95[167][139][165]R(100)[179]20[167][153]"ONE MORE CHANCE!":F4[178]1:[137]430
  52. 410 [139]D%[177]75[167][139][165]R(100)[179]20[167][153]"DO SOMTHING QUICK!":F4[178]1:[137]430
  53. 420 [139]D%[177]50[167][139][165]R(100)[179]20[167][153]"WE'RE HURTIN'":F4[178]1
  54. 430 [153]"ONCOMMAND "RA$" ?CONT ";
  55. 440 [161]K$:[139](TI[171]C3)[173]60[179][181]((1[173]SL[172]6)[172]5)[167]470
  56. 450 [139]F4[167]F4[178]0:[153]"LOAD
  57. 460 GOSUB610:GOTO30
  58. 470 IFK$=""THEN440
  59. 480 F4=1:FORI=0TO10:IFK$=LEFT$(C$(I),1)THENPRINTRIGHT$(C$(I),LEN(C$(I))-1):CM=I:GOTO495
  60. 490 NEXT:GOTO440
  61. 495 REM TARGET ROUTINES
  62. 500 ONCM+1GOSUB1350,600,515,790,900,960,1050,1070,2040,1230,730:IFCM=10THEN430
  63. 510 GOTO30
  64. 515 IFF0THENPRINT"HAVE TO SURFACE FIRST "RA$:RETURN
  65. 520 GOSUB580:GOSUB2080:IFTY=5THEN550
  66. 530 IFTY=.ORTY=6THENPRINT"LOOKOUT REPORTS NO SHIP IN SIGHT, SIR":GOSUB2930:RETURN
  67. 540 D%=D%+(D%*RND(51)+10):OD=100:PRINT"THAT'S A JAP SHIP STUPID!":GOSUB2930:RETURN
  68. 550 GOSUB50100:PRINT"REPLENISHED":FU=500:CH=100:S=1:TR=40:AM=TR:OD=0:D%=0:Q%(A,B,Q)=0
  69. 560 X=FNR(8):Y=FNR(8):Q=FNR(4):IFQ%(X,Y,Q)>0THEN560
  70. 570 Q%(X,Y,Q)=5:RETURN
  71. 580 Q=CO:IFQ>3THENQ=Q-4
  72. 590 RETURN
  73. 595 S1%=24:S2%=128:S5%=17:S3%=134:S4%=35
  74. 596 FORI=1TO10:GOSUB10:FORJ=1TO10:NEXT:GOSUB15:NEXT:RETURN
  75. 600 F4=.:PRINT"[147]
  76. 610 X[178]22:Y[178].:[141]2030:[153][200](B$,39)
  77. 620 [141]1880:[139]F4[167]F4[178].:[153]"LOAD
  78. 630 PRINT""LO$:FORX=7TO.STEP-1:PRINTSTR$(X)CHR$(190);:FORY=.TO6
  79. 640 PRINTG$(G%(X,Y))"[192][192][192]";:NEXT:PRINTG$(G%(X,Y))RIGHT$(STR$(X),1)CHR$(190)
  80. 650 PRINT"   [221]   [221]   [221]   [221]   [221]   [221]   [221]   [221]":NEXT:PRINT"[145]"LO$
  81. 660 PRINT"SPEED[146][154] "SP$(SP),"COURSE[146][154] "CO$(CO)
  82. 670 PRINT"FUEL [146][154]"LEFT$(STR$(FU),5)" GAL","BATTS [146][154]"LEFT$(STR$(CH),6)"%    "
  83. 680 PRINT"TORPS[146][154]"TR,,"AMMO  [146][154]"AM"ROUNDS
  84. 690 [153]"SUNK"KI"TONS BY DAY"[197]([202](TI$,3,2))[170]1"OF PATROL"PA[170]1
  85. 700 [153]"DAMAGEWAITCONT"[196](D%)[170]"% ";:S$[178]S$(S):[139]S[178]1[167][139]D%[177]0[167]S$[178]"REPAIRS UNDERWAY"
  86. 710 M$[178]" SURFACED   ":[139]F0[167]M$[178]" SUBMERGED  ":[139]F0[178]2[167]M$[178]" SCOPE DEPTH
  87. 720 PRINTS$M$"[145]":RETURN
  88. 730 PRINT"N[146]AVIGATE A[146]HEAD C[146]OURSE D[146]IVE S[146]URFACE H[146]ELP":GOSUB2920:GOSUB2920
  89. 740 PRINT"P[146]ERISCOPE E[146]CHOES G[146]UN T[146]ORPEDOS R[146]EPLENISH":GOSUB2920:GOSUB2920
  90. 750 IFF9THEN780
  91. 760 PRINT"TYPE H[146]ELP FOR DETAILED INSTRUCTIONS":GOSUB2920:GOSUB2920
  92. 770 GETK$:IFK$="H"THENPRINT"[147]"CHR$(14):GOSUB2590:RETURN
  93. 780 PRINT"TONS TO GO"KT-KI:PRINT"DAYS TO GO"30-VAL(MID$(TI$,3,2)):GOSUB2920:C3=TI:PRINT:PRINT:RETURN
  94. 790 SP$="":E$="SFTLUOD":PRINT"SPEED? (STOP,SLOW,STD,FULL) ";:FORI=1TO3
  95. 800 GOSUB2900:FORJ=1TO7:IFK$=MID$(E$,J,1)THEN820
  96. 810 NEXTJ:GOTO800
  97. 820 SP$=SP$+K$:PRINTK$;:NEXTI:FORI=.TO3:IFSP$=LEFT$(SP$(I),3)THEN840
  98. 830 NEXT:PRINT"":GOTO790
  99. 840 PRINT:IFS>1THENIFI>1THENPRINT"ENGINEERING SAYS CAN'T DO IT":GOSUB2930:RETURN
  100. 850 IFI=SPORI=.THEN880
  101. 860 IFSP=.THENC1=T(I):GOTO880
  102. 870 C1=(C1/T(SP))*T(I)
  103. 880 OD=OD+((FNR(11)+5)*(I-SP)):PRINT:PRINT"ALL ";:IFI>0THENPRINT"AHEAD ";
  104. 890 PRINTSP$(I):C0=TI:SP=I:RETURN
  105. 900 E$="NOEASW":CO$="":PRINT"COURSE? (NO,NE,EA,SE,SO,SW,WE,NW)";:FORI=1TO2
  106. 910 GOSUB2900:FORJ=1TO6:IFK$=MID$(E$,J,1)THEN930
  107. 920 NEXTJ:GOTO910
  108. 930 CO$=CO$+K$:PRINTK$;:NEXTI:FORI=.TO7:IFCO$=LEFT$(CO$(I),2)THENCO=I:GOTO950
  109. 940 NEXT:PRINT"":GOTO900
  110. 950 PRINT:PRINT"HEADING "CO$(I)"":RETURN
  111. 960 IFF0<>1THEN1010
  112. 970 IFFNR(100)<25THENPRINT"WE ALREADY ARE DEEP
  113. 980 [139][165]R(100)[179]25[167][153]"WE'RE NEAR CRUSH DEPTH NOW!
  114. 990 IFFNR(100)<25THENPRINT"HOW DEEP DO YOU THINK THIS TUB CAN DIVE?
  115. 1000 [141]2930:[142]
  116. 1010 [139]S[179]3[167][139]CH[177]0[167]1040
  117. 1020 [139][165]R(100)[179]25[167][153]"HAVE TO STAY ON THE SURFACE SIR.
  118. 1030 PRINT""S$(S)" BATTERIES"STR$(INT(CH))"%":GOSUB2930:RETURN
  119. 1040 OD=OD-(FNR(21)+40):F0=1:F2=1:PRINT"SUBMERGED SIR":RETURN
  120. 1050 IFF0=.THENPRINT"ALREADY ON THE SURFACE SIR":GOSUB2930:RETURN
  121. 1060 OD=OD+(FNR(21)+40):F0=.:F2=.:PRINT"SURFACED SIR":GOSUB2920:RETURN
  122. 1070 OD=OD+FNR(15):C3=TI:IFF0THENF0=2
  123. 1080 IFF4=0THENGOSUB1220:PRINT"":GOTO1100
  124. 1090 F4=0:PRINT"[147]":FORI=1TO6:PRINTTAB(15)""LEFT$(B$,4):NEXT
  125. 1100 PRINTTAB(9)"[175][175][175][175][175][206][223]  [146][169][205][175][175][175][175][175]"SPC(23)"[170][213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201][180]"SPC(22)"[170][221]"SPC(14)"[221][180]"SPC(18);
  126. 1110 PRINT"[166][166][166][166] [146][221]"SPC(14)"[221] [146][166][166][166][166]"SPC(18)"[170][221]"SPC(14)"[221][180]"SPC(22)"[170][202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203][180]"SPC(23);
  127. 1120 PRINT"[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"SPC(95)"[154]ENTER COMMAND OR USE RETURN[146] TO ROTATE
  128. 1130 X[178]11:Y[178]10:[141]2030:[153][200](LI$,14):[141]580:Z[178]Q
  129. 1140 X[178]7:Y[178]16:[141]2030:[153]"";CO$(Z)"CONT":Q[178]Z:[141]2080:X[178]18:Y[178].:[141]2030
  130. 1150 [161]K$:[139](TI[171]C3)[173]60[178][177][181]((1[173]SL[172]6)[172]5)[167]F5[178]1:[142]
  131. 1160 OD[178]OD[170].1:[139]K$[178]""[167]1150
  132. 1170 [139][198](K$)[178]13[167]1200
  133. 1180 [129]I[178].[164]10:[139]K$[178][200](C$(I),1)[167]F1[178]1:Y[178].:X[178]20:[141]2030:[153]"STAND-BY":[142]
  134. 1190 [130]:[137]1150
  135. 1200 Z[178]Z[170]1:[139]Z[178]4[167]Z[178].
  136. 1210 [141]1220:[137]1140
  137. 1220 X[178]9:Y[178]10:[141]2030:[153][200](B$,14)[166]26)[200](B$,14):[142]
  138. 1230 [139]TR[177]0[167]1270
  139. 1240 [139][165]R(100)[179]25[167][153]"OUT OF TORPEDOS!
  140. 1250 IFFNR(100)<25THENPRINT"WE DON'T GROW TORPEDOS DOWN HERE!
  141. 1260 [153]"SORRY":[141]2930:[142]
  142. 1270 TR[178]TR[171]4:[153]"LOAD"LI$:X[178]2:Y[178][165]R(30):[141]2030:[141]580:[141]2080:OD[178]OD[170]([165]R(11)[170]10)
  143. 1272 V[178]15.75
  144. 1273 S1%[178]1:S2%[178]248:S3%[178]255:S4%[178]255:S5%[178]129:[141]10
  145. 1280 CR(0)[178]2003:[129]X[178]1[164]20:V[178]V[171].75:[151]54296,V
  146. 1290 Z(1)[178]40[171][165]X(X):Z(2)[178]40[171][165]Y(X):Z(3)[178]40[170][165]Y(X):Z(4)[178]40[170][165]X(X):[129]K[178]1[164]4
  147. 1300 CR(1)[178]CR(0)[171]Z(K):[151]CR(1),58:[130]:[139]X[177]12[167]CR(0)[178]CR(0)[171]([165]R(3)[170]39):[137]1320
  148. 1310 CR(0)[178]CR(0)[171]40
  149. 1320 [130]:[141]15
  150. 1327 [129]K[178]1[164]4:CR(1)[178]CR(0)[171]Z(K):[139][194](CR(1))[179][177]32[167]2240
  151. 1330 [130]:[153]"MISSED HIM! ";:[139][165]R(100)[179]25[167][153]"DAMN!!":[141]2930
  152. 1340 [153]:[142]
  153. 1350 SD[178].:[139]AM[177].[167]1390
  154. 1360 [139][165]R(100)[179]50[167][153]"NO 3"[199](34)" ROUNDS LEFT!
  155. 1370 IFFNR(100)<50THENPRINT"YOU'VE USED UP ALL THE AMMO!
  156. 1380 [153]"SORRY SIR":[141]2930:[142]
  157. 1390 [139]F0[178].[167]1430
  158. 1400 [139][165]R(100)[179]25[167][153]"WE'LL HAVE TO SURFACE FIRST
  159. 1410 IFFNR(100)<25THENPRINT"CAN'T USE THE GUN SUBMERGED!!
  160. 1420 [142]
  161. 1430 T1[178]7:EL[178].:BE[178].:Y[178][165]R(29):TA[178]Y:TG[178][165]R(8001)[170]2000:[141]580
  162. 1440 X[178]2:Y[178][165]R(8)[170](TA[171]3):Y[178]Y[172][180](Y):[139]Y[177]29[167]Y[178]29
  163. 1450 [141]580:[153]"LOAD"LI$:[141]2030:[141]2080:[139]TY[178].[176]TY[178]6[167][153]"NO TARGET":[142]
  164. 1460 [139]TY[179][177]T1[167]T1[178]TY
  165. 1470 GU[178][181]((177.778[172]EL)[170].5)[170]2000:Y[178][181](((BE[170]45)[172].377)[170].5)[170]3
  166. 1480 X[178]3:[141]2030:[153]"ON=CMDCMD-"[166]1)"<CMDCMD>"TG;:[139]F1[167]1630
  167. 1490 E$[178]"+-.0123456789":C3[178]TI:EL$[178]"":BE$[178]"":[153]"  BEARING? ";:[129]I[178]1[164]3
  168. 1500 [161]K$:[139](TI[171]C3)[173]60[178][177][181]((1[173]SL[172]6)[172]8)[167]K$[178]"G":F1[178]1:[142]
  169. 1505 [139]I[178]1[167][139]K$[179][177]"+"[175]K$[179][177]"-"[167]1470 [170][171]
  170. 1510 [139]K$[178]""[167]1500
  171. 1520 [129]J[178]1[164]13:[139]K$[178][202](E$,J,1)[167]1540
  172. 1530 [130]J:[137]1500
  173. 1540 BE$[178]BE$[170]K$:[153]K$;:[130]I:BE[178][197](BE$)
  174. 1550 C3[178]TI:[153]"   ELEVATION ";:[129]I[178]1[164]2
  175. 1560 [161]K$:[139](TI[171]C3)[173]60[178][177][181]((1[173]SL[172]6)[172]10)[167]K$[178]"G":F1[178]1:[142]
  176. 1570 [139]K$[178]""[167]1560
  177. 1580 [129]J[178]1[164]13:[139]K$[178][202](E$,J,1)[167]1600
  178. 1590 [130]J:[137]1560
  179. 1600 EL$[178]EL$[170]K$:[153]K$;:[130]I:EL[178][197](EL$):EL[178]EL[172][180](EL):[139]EL[177]45[167]EL[178]45
  180. 1610 [139][182](BE)[177]45[167]BE[178]45[172][180](BE)
  181. 1620 F1[178]1:[137]1440
  182. 1630 F1[178]0:HI[178]20:CR(0)[178]2003:Z[178](Y[171]19)[173]20:[139]Y[179]19[167]Z[178](19[171]Y)[173]20
  183. 1640 AM[178]AM[171]1:[139]AM[179]0[167]AM[178]0:[153]:[137]1360
  184. 1650 [139]GU[179]TGT[171]150[167]HI[178][165]R(4)[170]15
  185. 1660 [139]GU[177]TGT[170]150[167]HI[178][165]R(2)[170]21
  186. 1665 S1%[178]0:S2%[178]255:S3%[178]10:S4%[178]155:S5%[178]129:[141]10:[151]54296,1:[129]I[178]1[164]2:[130]
  187. 1666 [129]I[178]15[164]1[169][171]1:[151]54296,I:[129]J[178]1[164]10:[130]J,I:[141]15
  188. 1670 [129]I[178]1[164]HI:W[178]40[171][181]((Z[172]I)[170].5):[139]Y[179]19[167]W[178]40[170][181]((Z[172]I)[170].5)
  189. 1680 CR(1)[178]CR(0)[171]W:[151]CR(1),46:CR(0)[178]CR(0)[171]40
  190. 1690 [130]:CR(1)[178]CR(0)[171]W:[153]""B$
  191. 1700 [139][194](CR(1))[178]32[176]([194](CR(1)[171]2)[178]32[175][194](CR(1)[170]2)[178]32)[167]1780
  192. 1710 [139]TY[178]4[167]SD[178]SD[170]([165]R(50)[170]30)
  193. 1720 [139]TY[178]3[167]SD[178]SD[170]([165]R(110)[170]40)
  194. 1730 [139]TY[179]3[167]SD[178]SD[170]([165]R(20)[170]10)
  195. 1740 SD[178]SD[170]([165]R(20)[170]10):[141]2240:[139]SD[177]100[167][142]
  196. 1750 [153]""B$"HIT! "SH$(TY)" DAMAGED"[196](SD)"%";
  197. 1760 [139][165]R(100)[179]15[167][139]TY[179][177]1[167][153]" GOOD SHOT!
  198. 1770 GOSUB2920:GOTO1800
  199. 1780 POKECR(1),42:PRINT"MISS! RANGE TO SPLASH"GU"AT"STR$(EL)"[188] ELEV.
  200. 1790 [141]2920:[141]2960:F3[178].:Z9[178]Z9[170]([165]R(3)[171]1):[139]SD[177]85[167]Z9[178]Z9[171]1
  201. 1800 [129]K1[178]1[164]Z9
  202. 1802 S3%[178]225:S4%[178]35:S1%[178]24:S2%[178]128:S5%[178]17:[141]10
  203. 1805 [153]""B$"INCOMING!!";:[139][165]R(100)[179]15[167][153]" WATCH OUT!
  204. 1806 FORXX=1TOFNR(10)+15:S3%=S3%-3:GOSUB11:FORXY=1TO4:NEXTXY,XX:GOSUB15
  205. 1810 PRINT""B$"";:IFFNR(100)<50THEN1830
  206. 1820 GOSUB2950:D%=D%+FNR(50)+5:PRINT"HIT!![146]  DAMAGE"STR$(D%)"%":GOTO1840
  207. 1830 PRINT"MISS! ";:IFFNR(100)<15THENPRINT"LUCKY!
  208. 1840 [141]2920:[130]K1:[139]D%[177]100[167][142]
  209. 1850 [161]K$:[139]K$[178]""[167]1440
  210. 1860 [129]I[178]0[164]10:[139]K$[178][200](C$(I),1)[167]F1[178]1:[142]
  211. 1870 [130]:[137]1440:IN[197]ID KEY
  212. 1880 C2[178](TI[171]C0)[173]60:C1[178]C1[171]C2:Z1[178]1E[171]4[172]C2:[139]SP[177]0[167]Z1[178]FA(SP)[172]C2
  213. 1890 [139]F2[176]FU[178].[167]CH[178]CH[171](Z1[172]10)[172]100
  214. 1900 [139]CH[177].[176]F2[178].[167]1930
  215. 1910 F4[178]1:CH[178]0:[139]CM[178]7[176]CM[178]0[176]CM[178]9[167][153]"";
  216. 1920 [153]:[153]"BATTERIES DEADWAIT ON";:[141]1050:[141]2920
  217. 1930 D%[178]D%[171](C2[172].3):[139]D%[179].[167]D%[178].
  218. 1940 [139]F2[167]1970
  219. 1950 FU[178]FU[171]Z1[172]1E3:[139]FU[177]0[167]CH[178]CH[170]C2:[139]CH[177]100[167]CH[178]100
  220. 1960 [139]FU[179].[167]FU[178].:[139]CH[179][178].[167]F0[178]1:[137]2360
  221. 1970 [139]C1[177].[176]SP[178].[167]C0[178]TI:[142]
  222. 1980 G%(A,B)[178]2:MI[178]MI[170]1:[139](CO[178]2[176]CO[178]3[176]CO[178]7)[167][139]B[177]0[167]B[178]B[171]1
  223. 1990 [139]CO[178].[176]CO[178]1[176]CO[178]5[167][139]B[179]7[167]B[178]B[170]1
  224. 2000 [139]CO[178]1[176]CO[178]2[176]CO[178]6[167][139]A[177]0[167]A[178]A[171]1
  225. 2010 [139]CO[178].[176]CO[178]3[176]CO[178]4[167][139]A[179]7[167]A[178]A[170]1
  226. 2020 C1[178]T(SP):G%(A,B)[178]G%(A,B)[170]1:C0[178]TI:[142]
  227. 2030 [153][200](X$,X[170]1);[200](Y$,Y[170]1)"CMD";:[142]
  228. 2040 Z[178].:[153]"SONAR CONTROL REPORTS":[141]50000:[129]K[178].[164]3:Q[178]K:[141]2080
  229. 2050 [139]TY[177]0[167]S3%[178]200:[141]11:[151]54269,15:[153]"ECHOES BEARING "CO$(K):Z[178]1
  230. 2051 [139]Z[167]S3%[178]100:[129]J[178]15[164]7[169][171]1:[141]11:[151]54269,J:[130]:[151]54269,15
  231. 2060 [130]:[139]Z[178]0[167][153]"NO ECHOES
  232. 2070 GOSUB15:RETURN
  233. 2080 GOSUB1880:X=A:Y=B:GOSUB2140:IFTY>0ORF3ORCM=2THENRETURN
  234. 2090 ONQ+1GOTO2100,2110,2120,2130
  235. 2100 X=A+1:Q=1:GOSUB2140:Y=B+1:Q=2:GOSUB2140:X=A:Q=3:GOSUB2140:RETURN
  236. 2110 Y=B+1:Q=2:GOSUB2140:X=A-1:Q=3:GOSUB2140:Y=B:Q=.:GOSUB2140:RETURN
  237. 2120 X=A-1:Q=3:GOSUB2140:Y=B-1:Q=.:GOSUB2140:X=A:Q=1:GOSUB2140:RETURN
  238. 2130 Y=B-1:Q=.:GOSUB2140:X=A+1:Q=1:GOSUB2140:Y=B:Q=2:GOSUB2140:RETURN
  239. 2140 IFX<0ORX>7ORY<0ORY>7THENRETURN
  240. 2150 TY=Q%(X,Y,Q):IFF3ORCM=8ORCM=2THENRETURN
  241. 2160 IFCM=7THENX1=X:Y1=Y:X=9:Y=FNR(4)+10:GOSUB2030:X=X1:Y=Y1
  242. 2170 IFX<>AORY<>BTHEN2200
  243. 2180 WE=.:IFTYTHENWE=75.5:IFTY>1THENWE=13.5:IFTY>2THENWE=.5:IFTY=4THENWE=7.5
  244. 2190 PRINTTY$(TY):RETURN
  245. 2200 IFTY=.THENRETURN
  246. 2210 TY=6:IFCM=7THENX=9:Y=FNR(14)+10:GOSUB2030
  247. 2220 IFCM=.ORCM=9THENX=2:Y=FNR(37)+1:GOSUB2030
  248. 2230 PRINT"[144]+[154][145]":RETURN
  249. 2240 IFTY=6ORTY=.THENRETURN
  250. 2250 FORJ=1TOLEN(TY$(TY)):IFMID$(TY$(TY),J,1)<>"[157]"THENNEXT
  251. 2260 J=J-1:K=0:FORI=1104TO1143:K=K+1:IFPEEK(I)=32THENNEXT
  252. 2261 Y=CR(1)-1144:IFABS(Y-K)>5THENY=K+J/2:REM XPLOSION ERROR PATCH
  253. 2280 X=3:GOSUB2030:S1%=1:S2%=200:S3%=10:S4%=100:S5%=129:GOSUB10:XX=15:POKE54296,1
  254. 2290 FORX=1TO10:XX=XX-1:POKE54296,XX:FORY=1TO5:PRINT"[214][157]";:NEXT
  255. 2291 FORY=1TO5:PRINT"[150][219][157]";:NEXTY,X:PRINT"[154] ":GOSUB15
  256. 2300 IFCM=0THENIFSD<100THENRETURN
  257. 2310 X=2:Y=0:GOSUB2030:PRINTB$;B$:X=3:Y=K:GOSUB2030:PRINTLEFT$(TY$(TY),J)
  258. 2320 FORI=1TO700:NEXT:GOSUB2030:PRINTLEFT$("[164][164] [164] [164][164] [164][164]",J):FORI=1TO700:NEXT
  259. 2330 WE=WE*1E3:Y=.:GOSUB2030:PRINTB$"[154]"SH$(TY)" SUNK FOR"WE"TONS
  260. 2340 Q%(A,B,Q)[178]Q%(A,B,Q)[171]TY:[139]TY[178]5[167][153]"CONGRADULATIONS SKIPPER!!":[141]2930
  261. 2350 TK[178]TK[170]1:KI[178]KI[170]WE:[142]
  262. 2360 [161]K$:[139]K$[179][177]""[167]2360
  263. 2370 [153]:PA[178]PA[170]1:[139]F0[178]0[167][153]"YOU'VE KILLED YOUR QUOTA. RETURN TO     PEARL
  264. 2380 IFF0=1THENPRINT"YOU'RE OUT OF FUEL AND ADRIFT.
  265. 2390 [139]F0[178]2[167][153]"YOU'VE EXCEEDED YOUR CRUISE RANGE LIMIT.";
  266. 2400 [139]F0[178]3[167][153]"DAMAGE"[196](D%)"%  YOU'RE SINKING!
  267. 2401 IFF0THENIFFNR(100)<26THENPRINT"YOU BLEW IT!!
  268. 2405 [145]F0[170]1[141]20000,10000,10000,10000
  269. 2410 TT[178]TT[170]KI:GR[178]GR[170]TK:[153]"YOU SANK"TK"ENEMY SHIPS BY DAY "[202](TI$,3,2)" OF
  270. 2420 PRINT"PATROL"PA", TOTALING"KI"TONS."
  271. 2421 ONF0+1GOSUB20110,10070,10070,10070
  272. 2422 PRINT"NEW S[146]UB  NEW M[146]ISSION  OR E[146]XIT ?":CL=INT(TI)/60
  273. 2425 IFINT(TI/60)=>CL+30THENK$="M":GOTO2490
  274. 2430 GETK$:IFK$="M"ORK$="E"THEN2490
  275. 2440 IFK$<>"S"THEN2425
  276. 2450 GOSUB3275:PRINT"[147]REPOSITIONING U.S. SHIPS. STAND-BY!":GOSUB2770:REM SUB
  277. 2460 FORX=0TO7:GOSUB2820:FORY=0TO7:POKE54296,2:FORQ=0TO3
  278. 2465 IFQ%(X,Y,Q)=5THENQ%(X,Y,Q)=0
  279. 2470 IFG%(X,Y)>0THENG%(X,Y)=0
  280. 2480 NEXTQ:POKE54296,4:NEXTY,X:KI=0:F0=0:F1=0:F2=0:SP=1:F5=0:GOSUB15:GOTO3260
  281. 2490 PRINT"YOU CRUISED APROXIMATELY"MI*60"MILES":PRINT"ON"PA"PATROLS SINKING"GR
  282. 2500 PRINT"ENEMY SHIPS FOR"TT"TONS.":PRINT"COMSUBWESPAC HAS RATED YOUR MISSION":TT=TT/PA
  283. 2510 IFTT=>KTTHENPRINT"COMMENDABLE "RA$"!":PRINT"YOU'RE AWARDED THE NAVY CROSS.":GOTO2550
  284. 2520 IFTT=>KT/2THENPRINT"A SUCCESS! PRETTY GOOD "RA$:GOTO2550
  285. 2530 IFTT=>KT/6THENPRINT"ACCEPTABLE "RA$",":PRINT"BUT DON'T LOOK FOR  A PROMOTION.":GOTO2550
  286. 2540 PRINT"A TOTAL LOSS! IF YOU SURVIVE, YOU'LL BE DEMOTED TO";
  287. 2541 X=FNR(100):IFX<26THENPRINT" SEAMAN!":GOTO2545
  288. 2542 IFX<51THENPRINT" SWABBY!":GOTO2545
  289. 2543 IFX<76THENPRINT" CIVILIAN!":GOTO2545
  290. 2544 PRINT" CONGRESSMAN!!"
  291. 2545 IFCL=1THENFORI=1TO10000:NEXT:GOTO30
  292. 2550 IFTT>KT/2THENIFSL<6THENPRINT"YOU'RE IN LINE FOR PROMOTION":PRINT"TO "RA$(SL+1)
  293. 2555 IFK$="M"THENFORI=1TO10000:NEXT:RUN
  294. 2560 IFTT>KT/2THENIFFNR(100)>50THENPRINT"GOOD GAME!
  295. 2570 [139]TT[179]KT[173]2[167][139][165]R(100)[177]50[167][153]"BETTER LUCK NEXT TIME.
  296. 2580 PRINT"SMOOTH SAILING SHIPMATE!":END
  297. 2590 PRINT"[195]OMMANDS ARE AS FOLLOWS:"SPC(16)"[206][146]-[198]OR NAVIGATION CHART & SUB'S STATUS
  298. 2600 [153]"(null)WAIT-(null)O REPLENISH FROM (null).(null). (null)HIP"[166]11)"ATNWAIT-ATNHEAD. (null)PEED((null)(null)(null)(null),(null)(null)(null)(null),(null)(null)STR$,ASC(null)(null)(null))
  299. 2610 PRINT"[195][146]-[198]OR COURSE ([206][207],[206][197],[197][193],[211][197],[211][207],[211][215],[215][197],[206][215])
  300. 2620 [153]"STR$WAIT-STR$EEP DIVE. (null)ESSENS ODDS OF ATTACK"[166]5)"(null)WAIT-(null)O SURFACE
  301. 2630 PRINT"[208][146]-[208]ERISCOPE. [211]UB AT SCOPE DEPTH
  302. 2640 [153]"VALWAIT-VALCHOES (SONAR) SHORT AND LONG RANGE
  303. 2650 PRINT" [215]HEN USING WEAPONS, AIM THE BOAT FIRST
  304. 2660 [153]"(null)WAIT-(null)ORPEDOS"[166]30)"CHR$WAIT-STR$ECK GUN
  305. 2670 PRINT"[212]YPE [200][146] ([200]ELP) AT ANY TIME FOR COMMANDS":GOSUB2890
  306. 2680 IFK$="H"THENF9=1:GOSUB730:F9=.:GOSUB2890
  307. 2690 PRINT"[147][198]URTHER INSTRUCTIONS FOR [196][197][195][203][160][199][213][206][146]:      [210]ANGE TO TARGET IS DISPLAYED";
  308. 2700 PRINT" IN UPPER   LEFT CORNER OF SCREEN.":PRINT"[210]ANGE IS DETERMINED BY GUN EL";
  309. 2710 PRINT"EVATION;":PRINT"00[188] FOR 2000 YDS. 45[188] FOR 10000 YDS.
  310. 2720 [153]"(null)ANGES IN BETWEEN WILL HAVE TO BE INTER-POLATED. (null)IP: (null)EEP A CHART OF ";
  311. 2730 [153]"ELEVATION VS. RANGE.":[153]"PEEKEARING IS -45LOG <<< 000 >>> +45LOG REFER- ENCED ";
  312. 2740 [153]"TO CENTER SCREEN.":[153]"VALNTER BEARING AS +/-## AND ELEVATION AS ## ";
  313. 2750 [153]"(SIGNED INTEGERS).
  314. 2760 PRINT"[199]OOD LUCK AND GOOD HUNTING "RA$"!!":GOSUB2890:PRINT"[147]"CHR$(142):RETURN
  315. 2770 POKE53281,6:POKE53280,6:PRINT""CHR$(142)
  316. 2780 PRINTSPC(16)"[144][186][177][204]":PRINTSPC(7)"[164][164][164][164][164][192][162][185][186][184][154]7[144] [204][164][164][175][175][164][164][164]     [213][201]
  317. 2790 [153][166]7)"(null) RND(null)TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANRIGHT$USRFRETANTANTAN(null)<
  318. 2800 PRINTSPC(8)"[205][172][221][183][160][183][160][183][160][183][160][183][160][183][160][183][160][183][160][163][163][163][163]][192]
  319. 2810 [153][166]9)"(null)TOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOANDPOSTANTANTANRIGHT$<":[153][166]32)"MID$(null)":[142]
  320. 2820 [151]1696,127:[129]P[178]1564[164]1256[169][171]39:X1[178]P[171]1[170][165]R(3):Z[178][165]R(3):[151]1696,255
  321. 2829 [151]X1[170]LB,14:[151]54296,2
  322. 2830 [151]X1,87:Y1[178][165]R(5)[170]1697:[151]Y1,46:[151]Y1[170]LB,14
  323. 2831 [151]Y1[170]Z,46:[151]1696,127:Q1[178][165]R(100)[170]1:[151]54296,4
  324. 2840 [139]Q1[177]10[167][151]X1,32:[151]Y1[170]Z,32:[137]2860
  325. 2850 [151]Y1,32:[151]54296,2
  326. 2860 [151]1696,255:[130]:[142]
  327. 2870 [153]"LOAD      H U N T E R / K I L L E R 64      ";
  328. 2880 [153]"                  RUTHLESS              ":[142]
  329. 2890 [153]"ATNNY KEY TO CONTINUE
  330. 2900 GETK$:IFK$=""THEN2900
  331. 2910 RETURN
  332. 2920 FORI=1TO1500:NEXT:RETURN
  333. 2930 IFFNR(100)<5THENPRINT"DO YOU KNOW WHAT THE HELL YOU'RE DOING?"
  334. 2940 RETURN
  335. 2950 S1%=0:S2%=255:S3%=10:S4%=200:S5%=129:GOSUB10
  336. 2956 FORJ=1TO2:POKE53281,2:FORK=1TO60:NEXT:POKE53281,7
  337. 2957 FORK=1TO40:NEXTK,J:POKE53281,6
  338. 2959 POKE54296,10:FORI=1TO40:NEXT:GOSUB15:RETURN
  339. 2960 F3=1:Z=.:Z9=.:FORQ=.TO3:GOSUB2080:IFTY>.THENIFTY<5THENZ=Z+TY+(FNR(3)-1):Z9=Z9+1
  340. 2970 NEXT:RETURN
  341. 2980 POKE53281,1:PRINT"[147]"CHR$(14):FORI=1TO6:READRA$(I):PRINT""I"[154]"RA$(I)"":NEXT
  342. 2985 CL=INT(TI/60)
  343. 2990 PRINT"[217]OUR RANK ? ";:GOSUB50100
  344. 2991 GETK$:SL=VAL(K$)
  345. 2992 IFINT(TI/60)=>CL+30THENSL=6:GOTO3000
  346. 2993 IFSL<1ORSL>6THEN2991
  347. 3000 KT=(SL+1)*1E5+5E4:RA$=RA$(SL):PRINT"[150]"RA$"[154]"
  348. 3001 CL=INT(TI/60)
  349. 3010 PRINT"[206]EED INSTRUCTIONS ? ";
  350. 3011 GETK$:IFK$="Y"THENGOSUB2870:GOSUB2590:GOTO3030
  351. 3012 IFK$="N"THEN3030
  352. 3013 IFINT(TI/60)<CL+30THEN3011
  353. 3020 DATAENSIGN,LIEUTENANT(JG),LIEUTENANT,"LIEUTENANT COMMANDER",COMMANDER,CAPTAIN
  354. 3030 DEFFNR(R)=INT(RND(1)*R):DEFFNX(X)=INT((.75*X)+.5):DEFFNY(Y)=INT((.25*Y)+.5)
  355. 3040 TY$(1)="[144][164][164][164][164][175][185][209][146][175][164][164][164][157][157][157][157][157][157][157][157][157][157][205][163][163][163][163][163][163][163][208][154]":DATA"AIR CRAFT CARRIER
  356. 3050 TY$(2)[178]"STOPTOSQRPOSNEW(null)WAITRNDSQRCMDCMDCMDCMDCMDCMDCMD(null)TOTOTOTAB(TAB(TAB(STR$<CONT":[131] CRUISER
  357. 3060 TY$(3)[178]"STOPTOPOSSQRCMDCMDCMD(null)(null)VALFREFRE<CONT":[131]"PATROL BOAT
  358. 3070 TY$(4)="[144][164][175][185][179][172][204][157][157][157][157][157][157][205][209][164][184][184][163][196][179][154]":DATA DESTROYER
  359. 3080 TY$(5)="[144][175][185][162] [146][162][157][157][157][157][157][205]....[163][196][179][154]":DATA"U.S. SUB TENDER
  360. 3090 X$[178]"":Y$[178]"
  361. 3100 DIMQ%(7,7,3),G%(7,7),SH$(5),CO$(8),S$(5),SP$(4),G$(4),T(4),FA(4)
  362. 3110 LI$="[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]":LB=54272
  363. 3120 B$="                                        "
  364. 3130 LO$="  150[190]149[190]148[190]147[190]146[190]145[190]144[190]143[190]
  365. 3140 [131]"GDECK GUN",NNAVIGATE,"RGO ALONGSIDE",AENGINES,CHELM,DDIVE,SSURFACE
  366. 3150 [131]"PUP PERISCOPE",ESONAR,TTORPEDOS,HHELP
  367. 3160 [131]NE,SE,SW,NW,NORTH,EAST,SOUTH,WEST,"CONDITIONS NORMAL","SLOW ONLY
  368. 3170 DATA"CAN'T DIVE","DEAD IN THE WATER",STOP,"[219]",0,0,SLOW,"[218][146]",90,5.56E-4
  369. 3180 DATA"STD ","[218]",60,8.33E-4,FULL,"[218][146]",30,1.67E-3
  370. 3190 FORI=1TO5:READSH$(I):NEXT:FORI=.TO10:READC$(I):NEXT:FORI=.TO7:READCO$(I):NEXT
  371. 3200 FORI=1TO4:READS$(I):NEXT:FORI=.TO3:READSP$(I),G$(I),T(I),FA(I):NEXT
  372. 3205 GOSUB3275
  373. 3210 GOSUB2870:GOSUB2770:GOSUB2820:FORTY=1TO4:GOSUB2820:A=FNR(46)+10
  374. 3220 X=20:Y=.:GOSUB2030:PRINTB$:GOSUB2030:PRINT"POSITIONING"A"ENEMY "SH$(TY)"S
  375. 3230 [129]I[178]1[164]A:[151]1696,127:[151]54296,4
  376. 3240 X[178][165]R(8):[151]54296,4:Y[178][165]R(8):[151]54296,2:Q[178][165]R(4):[139]Q%(X,Y,Q)[177]0[167]3240
  377. 3250 Q%(X,Y,Q)[178]TY:[151]1696,255:[129]J[178]1[164]10:[130]J,I,TY:[141]2820
  378. 3255 [151]54296,4
  379. 3260 X[178]20:Y[178].:[141]2030:CM[178]1:[129]I[178]1[164]2:[141]560:[130]:[151]54296,2
  380. 3265 A[178]X:B[178]Y:CO[178]Q:G%(A,B)[178]1:[141]550:[141]15:SP[178]1
  381. 3270 X[178]20:Y[178]12:[141]2030:[153]"AT PEARL AND UNDER WAY!":TI$[178]"000000":C0[178]TI:F4[178]1:[137]60
  382. 3275 S1%[178]0:S2%[178]255:S3%[178]10:S4%[178]200:S5%[178]129:[141]10:[151]54296,0:[142]
  383. 10000 S1%[178]24:S2%[178]128:S5%[178]33
  384. 10010 S3%[178]34:S4%[178]75:[141]10:[129]J[178]1[164]1100:[130]:[141]15
  385. 10020 [141]10:[129]J[178]1[164] 900:[130]
  386. 10030 S3%[178]45:S4%[178]198:[141]10:[129]J[178]1[164]1800:[130]:[141]15:[129]J[178]1[164]100:[130]
  387. 10040 S3%[178]34:S4%[178]75:[141]10:[129]J[178]1[164]1000:[130]
  388. 10050 S3%[178]45:S4%[178]198:[141]10:[129]J[178]1[164] 900:[130]
  389. 10060 S3%[178]57:S4%[178]172:[141]10:[129]J[178]1[164]1400:[130]:[141]15:[129]J[178]1[164]150:[130]:[142]
  390. 10070 S3%[178]34:S4%[178]75:[141]10:[129]J[178]1[164] 950:[130]
  391. 10080 S3%[178]45:S4%[178]198:[141]10:[129]J[178]1[164] 900:[130]
  392. 10090 S3%[178]57:S4%[178]172:[141]10:[129]J[178]1[164] 900:[130]
  393. 10100 S3%[178]34:S4%[178]75:[141]10:[129]J[178]1[164] 950:[130]
  394. 10110 S3%[178]45:S4%[178]198:[141]10:[129]J[178]1[164] 900:[130]
  395. 10120 S3%[178]57:S4%[178]172:[141]10:[129]J[178]1[164] 900:[130]
  396. 10130 S3%[178]34:S4%[178]75:[141]10:[129]J[178]1[164] 950:[130]
  397. 10140 S3%[178]45:S4%[178]198:[141]10:[129]J[178]1[164] 900:[130]
  398. 10150 S3%[178]57:S4%[178]172:[141]10:[129]J[178]1[164]900:[130]:[129]J[178]15[164]0[169][171]1:[151]54296,J
  399. 10160 [129]K[178]1[164]50:[130]K,J:[141]15
  400. 10170 [142]
  401. 20000 S1%[178]24:S2%[178]128:S5%[178]17
  402. 20010 S3%[178]34:S4%[178]75:[141]10:[129]J[178]1[164]1000:[130]
  403. 20020 S3%[178]43:S4%[178]52:[141]10:[129]J[178]1[164]500 :[130]
  404. 20030 S3%[178]51:S4%[178]97:[141]10:[129]J[178]1[164]500 :[130]
  405. 20040 S3%[178]57:S4%[178]172:[141]10:[129]J[178]1[164]800:[130]
  406. 20050 S3%[178]43:S4%[178]52:[141]10:[129]J[178]1[164]200 :[130]
  407. 20060 S3%[178]57:S4%[178]172:[141]10:[129]J[178]1[164]1000:[130]
  408. 20070 S3%[178]68:S4%[178]149:[141]10:[129]J[178]1[164]1000:[130]
  409. 20080 S3%[178]76:S4%[178]189:[141]10:[129]J[178]1[164]500:[130]
  410. 20090 S3%[178]51:S4%[178]97:[141]10:[129]J[178]1[164]500 :[130]
  411. 20100 S3%[178]68:S4%[178]149:[141]10:[129]J[178]1[164]1500:[130]:[141]15:[142]
  412. 20110 S3%[178]57:S4%[178]172:[141]10:[129]J[178]1[164]1000:[130]:[143] GOSUB15
  413. 20120 S3%[178]68:S4%[178]149:[141]10:[129]J[178]1[164]500:[130]:[143] GOSUB15
  414. 20130 S3%[178]57:S4%[178]172:[141]10:[129]J[178]1[164]500:[130]:[143] GOSUB15
  415. 20140 S3%[178]51:S4%[178]97:[141]10:[129]J[178]1[164]500 :[130]
  416. 20150 S3%[178]57:S4%[178]172:[141]10:[129]J[178]1[164]500:[130]
  417. 20160 S3%[178]64:S4%[178]188:[141]10:[129]J[178]1[164]400:[130]
  418. 20170 S3%[178]68:S4%[178]149:[141]10:[129]J[178]1[164]400:[130]
  419. 20180 [129]I[178]1[164]2:S3%[178]86:S4%[178]105:[141]10:[129]J[178]1[164] 70:[130]:[141]15:[129]J[178]1[164]50:[130]
  420. 20190 S3%[178]57:S4%[178]172:[141]10:[129]J[178]1[164]210:[130]:[129]J[178]1[164]25:[130]
  421. 20200 S3%[178]51:S4%[178]97:[141]10:[129]J[178]1[164]190:[130]:[129]J[178]1[164]25:[130]
  422. 20210 S3%[178]57:S4%[178]172:[141]10:[129]J[178]1[164]190:[130]:[129]J[178]1[164]25:[130]J,I
  423. 20220 S3%[178]68:S4%[178]149:[141]10:[129]J[178]1[164]1000:[130]:[129]J[178]15[164]0[169][171]2
  424. 20230 [151]54296,J:[129]K[178]1[164]30:[130]K,J:[141]15:[142]
  425. 50000 S1%[178]24:S2%[178]128:S5%[178]17
  426. 50010 S3%[178]100:S4%[178]35:[141]10
  427. 50015 [129]I[178]15[164]7[169][171]1
  428. 50020 S3%[178]S3%[171]2:[141]11:[151]54296,I:[129]J[178]1[164] 5:[130]J,I
  429. 50030 [129]I[178]7[164]15:S3%[178]S3%[170]2:[141]11:[151]54269,I:[129]J[178]1[164]5:[130]J,I:[142]
  430. 50035 S1%[178]0:S2%[178]255:S4%[178]155:S5%[178]129
  431. 50040 I[178][165]R(16):S3%[178][165]R(11):[141]11:[151]54269,I
  432. 50050 [142]
  433. 50100 S1%[178]24:S2%[178]128:S5%[178]17
  434. 50105 S3%[178]140:S4%[178]35
  435. 50110 [141]10
  436. 50115 [129]I[178]1[164]1500:[130]
  437. 50120 S3%[178]200:[141]11
  438. 50125 [129]I[178]1[164]1500:[130]
  439. 50130 S3%[178]140:[141]11
  440. 50135 [129]I[178]1[164]1500:[130]
  441. 50140 [129]I[178]140[164]90[169][171]1:S3%[178]I:[141]11:[129]J[178]1[164]10:[130]J,I
  442. 50145 [129]I[178]10[164]0[169][171]1:[151]54296,I:[141]11:[130]:[141]15:[142]
  443.